home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
cmdity
/
blcnts38.lha
/
BlocNotes
/
SendMail.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-04-12
|
858b
|
38 lines
/*Simple script to Send a note as a mail*/
address 'blocnotes.rexx'
options results
/*********************ATTENTION**********************/
/* MUST be definded envinronment variable SENDMAIL */
/****************************************************/
SENDMAIL=getvar('SENDMAIL')
/****************************************************/
/*Get the id of the note*/
parse arg id .
ISANOTE id
if RESULT=1 then do /* Check if the id is valid*/
GETLINE id 0
ln=RESULT
if pos('To:',ln)>0 then do
export id 'T:msg'||id
address command SENDMAIL||' T:msg'||id||' >t:ret'
address command 'requestchoice TITLE Mail GADGETS Ok BODY "`type t:ret`"'
address command 'delete T:msg'||id
address command 'delete T:ret'
end
end
exit
getvar:
filename='ENV:'||arg(1)
call open('var',filename)
string=readln('var')
return string